home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Bonus.dir / 00043_password.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  692 b   |  30 lines
  1. on keyDown
  2.   global chica, idioma
  3.   if the key = RETURN then
  4.     cursor(-1)
  5.     set clave to the text of field "password"
  6.     if (chica = "D") and (clave = "27NI32") then
  7.       set correcto to 1
  8.     else
  9.       if (chica = "E") and (clave = "51BL10") then
  10.         set correcto to 1
  11.       else
  12.         if (chica = "F") and (clave = "24KA21") then
  13.           set correcto to 1
  14.         else
  15.           alert("Incorrect Password." & RETURN & numToChar(10) & "Try again.")
  16.         end if
  17.       end if
  18.     end if
  19.     if correcto then
  20.       puppetSprite(9, 0)
  21.       puppetSprite(10, 0)
  22.       go("clip")
  23.     else
  24.       set the text of field "password" to EMPTY
  25.     end if
  26.   else
  27.     pass()
  28.   end if
  29. end
  30.